home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Biz / swood / FW_Scripts.lha / FW_Scripts / PreviewToggle.rexx < prev   
OS/2 REXX Batch file  |  2004-08-01  |  694b  |  33 lines
  1. /* ====================================    */
  2. /*      FINAL WRITER AREXX MACRO    */
  3. /* Toggle between Crossbox and Preview    */
  4. /* $VER: PreviewToggle 1.0 (1.8.04)    */
  5. /* ====================================    */
  6. Options Results
  7.  
  8. /* Get a list of all the selected objects. */
  9. i = 0
  10. FirstObject SELECTED
  11. IF ( Result = 0 ) THEN EXIT
  12.  
  13. DO WHILE ( Result ~= 0 )
  14.     i = I + 1
  15.     Object.i = Result
  16.     NextObject Object.i SELECTED
  17.     END
  18.  
  19. x = 0
  20. DO WHILE ( x < i )
  21.     x = x + 1
  22.  
  23.     GetObjectType Object.x
  24.     objtype.x = Result
  25.  
  26.     IF objtype.x = 1 THEN DO
  27.         GetObjectParams Object.x Display
  28.         IF RESULT = 'Crossbox' THEN SetObjectParams Object.x Display Preview
  29.         ELSE SetObjectParams Object.x Display Crossbox
  30.         END
  31.     END
  32. Redraw
  33.